home *** CD-ROM | disk | FTP | other *** search
- 0430 //
- 0440 PROC CONVERT(NUMBER) CLOSED
- 0450 IMPORT BASE#,RES$
- 0460 DIM STACK(80)
- 0470 SP:=1 // ╘HIS IS THE STACK POINTER
- 0480 REPEAT
- 0490 TEMP:=NUMBER MOD BASE#
- 0500 NUMBER:=NUMBER DIV BASE#
- 0510 STACK(SP):=TEMP
- 0520 SP:+1
- 0530 UNTIL NUMBER=0
- 0540 FOR COUNT:=SP-1 TO 1 STEP -1 DO
- 0550 DIGIT:=STACK(COUNT)
- 0560 IF DIGIT<10 THEN
- 0570 RES$:+CHR$(DIGIT+ORD("0"))
- 0580 ELSE
- 0590 RES$:+CHR$(DIGIT-10+ORD("┴"))
- 0600 ENDIF
- 0610 ENDFOR COUNT
- 0620 ENDPROC CONVERT
-